inherited frmContrDTypes: TfrmContrDTypes
  Left = 418
  Top = 240
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1058#1080#1087#1099' '#1076#1086#1083#1075#1086#1074' '#1076#1083#1103' '#1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1072
  ClientHeight = 259
  ClientWidth = 447
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 219
    Width = 447
  end
  object pnlTraits: TPanel [1]
    Tag = 1017
    Left = 0
    Top = 37
    Width = 447
    Height = 182
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object SrcLabel: TLabel
      Left = 8
      Top = 6
      Width = 145
      Height = 16
      AutoSize = False
      Caption = #1044#1086#1089#1090#1091#1087#1085#1099#1077' '#1090#1080#1087#1099
    end
    object DstLabel: TLabel
      Left = 246
      Top = 6
      Width = 145
      Height = 16
      AutoSize = False
      Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1085#1099#1077' '#1090#1080#1087#1099
    end
    object IncludeBtn: TSpeedButton
      Left = 202
      Top = 25
      Width = 36
      Height = 28
      Caption = '>'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = IncludeBtnClick
    end
    object IncAllBtn: TSpeedButton
      Left = 202
      Top = 57
      Width = 36
      Height = 28
      Caption = '>>'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = IncAllBtnClick
    end
    object ExcludeBtn: TSpeedButton
      Left = 202
      Top = 89
      Width = 36
      Height = 28
      Caption = '<'
      Enabled = False
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ExcludeBtnClick
    end
    object ExAllBtn: TSpeedButton
      Left = 202
      Top = 121
      Width = 36
      Height = 28
      Caption = '<<'
      Enabled = False
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ExAllBtnClick
    end
    object Panel3: TPanel
      Left = 6
      Top = 24
      Width = 190
      Height = 153
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 0
      object SrcList: TListBox
        Left = 1
        Top = 1
        Width = 188
        Height = 151
        Align = alClient
        BorderStyle = bsNone
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 0
        OnDblClick = IncludeBtnClick
      end
    end
    object Panel4: TPanel
      Left = 245
      Top = 24
      Width = 190
      Height = 153
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 1
      object DstList: TListBox
        Left = 1
        Top = 1
        Width = 188
        Height = 151
        Align = alClient
        BorderStyle = bsNone
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 0
        OnDblClick = ExcludeBtnClick
      end
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 447
    Height = 37
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object DBText1: TDBText
      Left = 68
      Top = 10
      Width = 369
      Height = 17
      DataField = 'NAME'
      DataSource = sprContragents.dscReestr
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 6
      Top = 10
      Width = 58
      Height = 13
      Caption = #1050#1086#1085#1090#1088#1072#1075#1077#1085#1090
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 348
    Top = 54
  end
  inherited ActionList1: TActionList
    Left = 348
    Top = 16
    inherited aReports: TAction
      Visible = False
    end
  end
  inherited PropStorageEh1: TPropStorageEh
    Section = 'frmContrDTypes'
    Left = 314
    Top = 16
  end
  object dsFreeTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    sd.id,'
      '    sd.name'
      'from spr_debt_type sd'
      '  where not exists(select 1'
      '    from spr_contragents_dtypes rdd'
      '    where rdd.dtype_id = sd.id'
      '    and rdd.contr_id = :pcontr_id)'
      'order by 1')
    Transaction = crdDebt.trDebt
    Database = MAINDM.MainDB
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 305
    Top = 88
    object dsFreeTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsFreeTypesNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
  end
  object dsContrTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    sd.id,'
      '    sd.name'
      'from spr_debt_type sd'
      '  where exists(select 1'
      '    from spr_contragents_dtypes rdd'
      '    where rdd.dtype_id = sd.id'
      '    and rdd.contr_id = :pcontr_id)'
      'order by 1')
    Transaction = crdDebt.trDebt
    Database = MAINDM.MainDB
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 305
    Top = 118
    object dsContrTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsContrTypesNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
  end
  object prSetTypesOnContr: TpFIBStoredProc
    Transaction = trSetTypeOnContr
    Database = MAINDM.MainDB
    SQL.Strings = (
      'EXECUTE PROCEDURE PR_CONTRAGENT_SET_DTYPES(:PCONTRAGENT_ID,'
      '    :PDTYPES_STR)  ')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    StoredProcName = 'PR_DEBT_SET_TRAITS'
    Left = 311
    Top = 158
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object trSetTypeOnContr: TpFIBTransaction
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 349
    Top = 156
  end
end
